home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / user1.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  22.7 KB  |  512 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (THE-ENVIRONMENT EVAL-ENV WITH-KEYBOARD *KEYBOARD-INPUT*)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4
  8.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  9.    (SPECIAL *COMPILING*) *COMPILING*
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  12.    %THE-ENVIRONMENT REMOVE-OLD-DEFINITIONS
  13.    #Y(%THE-ENVIRONMENT
  14.       #19Y(00 02 00 00 00 03 A9 BE 57 14 BF 57 14 AA BE 58 93 19 03) 0. 2.
  15.   )  )
  16. #Y(#:TOP-LEVEL-FORM-6
  17.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) THE-ENVIRONMENT
  18.    REMOVE-OLD-DEFINITIONS MACRO
  19.    #Y(THE-ENVIRONMENT
  20.       #30Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2E 07 0E 02 1B 08 C3 19 03 AA 2D
  21.            01 19 03 D7 D8 5A 01
  22.           )
  23.       1. MACRO-CALL-ERROR *COMPILING* "~S is impossible in compiled code"
  24.       THE-ENVIRONMENT (LET ((*EVALHOOK* #'%THE-ENVIRONMENT)) 0.)
  25.   )  )
  26. #Y(#:TOP-LEVEL-FORM-7
  27.    #18Y(00 00 00 00 00 01 D4 2F 5F D5 D6 69 60 2F 56 BF 19 01)
  28.    (SPECIAL *TOPLEVEL-ENVIRONMENT*) *TOPLEVEL-ENVIRONMENT* (THE-ENVIRONMENT)
  29.   )
  30. #Y(#:TOP-LEVEL-FORM-8
  31.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 63 02 C1 57 14 2F 56 BF 19 01)
  32.    (SPECIAL *TOPLEVEL-DENV*) *TOPLEVEL-DENV* *TOPLEVEL-ENVIRONMENT* 4.
  33.   )
  34. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  35.    EVAL-ENV REMOVE-OLD-DEFINITIONS
  36.    #Y(EVAL-ENV
  37.       #20Y(00 01 00 01 00 08 37 01 03 0E 00 EB AA 01 02 AC 2F 61 19 03)
  38.       *TOPLEVEL-ENVIRONMENT*
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-10
  41.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01)
  42.    (SPECIAL *BREAK-COUNT*) *BREAK-COUNT* 0.
  43.   )
  44. #Y(#:TOP-LEVEL-FORM-11
  45.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  46.    (SPECIAL *KEY-BINDINGS*) *KEY-BINDINGS*
  47.   )
  48. #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  49.    HELP REMOVE-OLD-DEFINITIONS
  50.    #Y(HELP
  51.       #35Y(00 00 00 00 00 01 D4 63 01 36 05 6A 6C 6A 64 5B 1A 0A 7E 01 00 14 36
  52.            03 2F 8E 7A 01 A9 84 B6 72 00 19 03
  53.           )
  54.       #.#'STRINGP *KEY-BINDINGS*
  55.   )  )
  56. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  57.    (SPECIAL *DEBUG-FRAME*) *DEBUG-FRAME*
  58.   )
  59. #Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D4 2F 5F BF 19 01)
  60.    (SPECIAL *DEBUG-MODE*) *DEBUG-MODE*
  61.   )
  62. #Y(#:TOP-LEVEL-FORM-15
  63.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  64.    (SPECIAL *FRAME-LIMIT1*) *FRAME-LIMIT1*
  65.   )
  66. #Y(#:TOP-LEVEL-FORM-16
  67.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  68.    (SPECIAL *FRAME-LIMIT2*) *FRAME-LIMIT2*
  69.   )
  70. #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  71.    FRAME-LIMIT1 REMOVE-OLD-DEFINITIONS
  72.    #Y(FRAME-LIMIT1
  73.       #38Y(00 01 00 00 00 02 2C 00 14 00 10 01 00 10 02 D7 1A 07 AF D8 2E 05 F1
  74.            7C 00 A8 B2 88 01 30 73 16 01 12 02 15 19 02
  75.           )
  76.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 0. 1. FRAME-UP-1
  77.   )  )
  78. #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  79.    FRAME-LIMIT2 REMOVE-OLD-DEFINITIONS
  80.    #Y(FRAME-LIMIT2
  81.       #58Y(00 00 00 00 00 01 2C 00 14 00 10 01 00 10 02 1A 04 92 F1 16 01 AE D7
  82.            68 04 A8 9A 21 04 A8 80 05 70 16 01 DA 1A 07 AF D7 2E 08 F1 7C 00 A8
  83.            DB 88 01 30 73 16 01 12 02 15 19 01
  84.           )
  85.       THE-FRAME *FRAME-LIMIT1* *FRAME-LIMIT2* 1. FRAME-UP-1 DRIVER-FRAME-P 0.
  86.       2. FRAME-DOWN-1
  87.   )  )
  88. #Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  89.    DEBUG-HELP REMOVE-OLD-DEFINITIONS
  90.    #Y(DEBUG-HELP #11Y(00 00 00 00 00 01 2C 00 D5 C0 4C) HELP DEBUG CONTINUE)
  91.   )
  92. #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  93.    DEBUG-UNWIND REMOVE-OLD-DEFINITIONS
  94.    #Y(DEBUG-UNWIND #9Y(00 00 00 00 00 01 D4 BF 4C) DEBUG UNWIND)
  95.   )
  96. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  97.    DEBUG-MODE-1 REMOVE-OLD-DEFINITIONS
  98.    #Y(DEBUG-MODE-1 #12Y(00 00 00 00 00 01 BE 0F 01 D6 C1 4C) 1. *DEBUG-MODE*
  99.       DEBUG CONTINUE
  100.   )  )
  101. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  102.    DEBUG-MODE-2 REMOVE-OLD-DEFINITIONS
  103.    #Y(DEBUG-MODE-2 #12Y(00 00 00 00 00 01 BE 0F 01 D6 C1 4C) 2. *DEBUG-MODE*
  104.       DEBUG CONTINUE
  105.   )  )
  106. #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  107.    DEBUG-MODE-3 REMOVE-OLD-DEFINITIONS
  108.    #Y(DEBUG-MODE-3 #12Y(00 00 00 00 00 01 BE 0F 01 D6 C1 4C) 3. *DEBUG-MODE*
  109.       DEBUG CONTINUE
  110.   )  )
  111. #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  112.    DEBUG-MODE-4 REMOVE-OLD-DEFINITIONS
  113.    #Y(DEBUG-MODE-4 #12Y(00 00 00 00 00 01 BE 0F 01 D6 C1 4C) 4. *DEBUG-MODE*
  114.       DEBUG CONTINUE
  115.   )  )
  116. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  117.    DEBUG-MODE-5 REMOVE-OLD-DEFINITIONS
  118.    #Y(DEBUG-MODE-5 #12Y(00 00 00 00 00 01 BE 0F 01 D6 C1 4C) 5. *DEBUG-MODE*
  119.       DEBUG CONTINUE
  120.   )  )
  121. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  122.    DEBUG-WHERE REMOVE-OLD-DEFINITIONS
  123.    #Y(DEBUG-WHERE #13Y(00 00 00 00 00 01 63 00 2D 01 D6 C1 4C) *DEBUG-FRAME*
  124.       DESCRIBE-FRAME DEBUG CONTINUE
  125.   )  )
  126. #Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  127.    DEBUG-UP REMOVE-OLD-DEFINITIONS
  128.    #Y(DEBUG-UP
  129.       #20Y(00 00 00 00 00 01 63 00 63 01 2E 02 0F 00 14 2D 03 D8 C3 4C)
  130.       *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP-1 DESCRIBE-FRAME DEBUG CONTINUE
  131.   )  )
  132. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  133.    DEBUG-TOP REMOVE-OLD-DEFINITIONS
  134.    #Y(DEBUG-TOP
  135.       #20Y(00 00 00 00 00 01 63 00 63 01 2E 02 0F 00 14 2D 03 D8 C3 4C)
  136.       *DEBUG-FRAME* *DEBUG-MODE* FRAME-UP DESCRIBE-FRAME DEBUG CONTINUE
  137.   )  )
  138. #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  139.    DEBUG-DOWN REMOVE-OLD-DEFINITIONS
  140.    #Y(DEBUG-DOWN
  141.       #20Y(00 00 00 00 00 01 63 00 63 01 2E 02 0F 00 14 2D 03 D8 C3 4C)
  142.       *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN-1 DESCRIBE-FRAME DEBUG CONTINUE
  143.   )  )
  144. #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  145.    DEBUG-BOTTOM REMOVE-OLD-DEFINITIONS
  146.    #Y(DEBUG-BOTTOM
  147.       #20Y(00 00 00 00 00 01 63 00 63 01 2E 02 0F 00 14 2D 03 D8 C3 4C)
  148.       *DEBUG-FRAME* *DEBUG-MODE* FRAME-DOWN DESCRIBE-FRAME DEBUG CONTINUE
  149.   )  )
  150. #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  151.    DEBUG-BACKTRACE REMOVE-OLD-DEFINITIONS
  152.    #Y(DEBUG-BACKTRACE
  153.       #36Y(00 00 00 01 00 07 37 01 03 0E 00 EB 63 01 AA 68 02 AA 68 03 A8 2D 04
  154.            A8 A9 AC 2E 02 EB 22 75 16 01 D9 C4 4C
  155.           )
  156.       *DEBUG-MODE* *FRAME-LIMIT1* FRAME-UP-1 FRAME-DOWN-1 DESCRIBE-FRAME DEBUG
  157.       CONTINUE
  158.   )  )
  159. #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  160.    DEBUG-BACKTRACE-1 REMOVE-OLD-DEFINITIONS
  161.    #Y(DEBUG-BACKTRACE-1 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) 1.
  162.       DEBUG-BACKTRACE
  163.   )  )
  164. #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  165.    DEBUG-BACKTRACE-2 REMOVE-OLD-DEFINITIONS
  166.    #Y(DEBUG-BACKTRACE-2 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) 2.
  167.       DEBUG-BACKTRACE
  168.   )  )
  169. #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  170.    DEBUG-BACKTRACE-3 REMOVE-OLD-DEFINITIONS
  171.    #Y(DEBUG-BACKTRACE-3 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) 3.
  172.       DEBUG-BACKTRACE
  173.   )  )
  174. #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  175.    DEBUG-BACKTRACE-4 REMOVE-OLD-DEFINITIONS
  176.    #Y(DEBUG-BACKTRACE-4 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) 4.
  177.       DEBUG-BACKTRACE
  178.   )  )
  179. #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  180.    DEBUG-BACKTRACE-5 REMOVE-OLD-DEFINITIONS
  181.    #Y(DEBUG-BACKTRACE-5 #11Y(00 00 00 00 00 01 D4 2D 01 19 01) 5.
  182.       DEBUG-BACKTRACE
  183.   )  )
  184. #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  185.    DEBUG-REDO REMOVE-OLD-DEFINITIONS
  186.    #Y(DEBUG-REDO #13Y(00 00 00 00 00 01 63 00 2D 01 D6 C1 4C) *DEBUG-FRAME*
  187.       REDO-EVAL-FRAME DEBUG CONTINUE
  188.   )  )
  189. #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  190.    DEBUG-RETURN REMOVE-OLD-DEFINITIONS
  191.    #Y(DEBUG-RETURN #16Y(00 00 00 00 00 01 63 00 D5 67 02 2E 03 D8 C3 4C)
  192.       *DEBUG-FRAME* "values: " READ-FORM RETURN-FROM-EVAL-FRAME DEBUG CONTINUE
  193.   )  )
  194. #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  195.    DEBUG-CONTINUE REMOVE-OLD-DEFINITIONS
  196.    #Y(DEBUG-CONTINUE #9Y(00 00 00 00 00 01 D4 BF 4C) DEBUG QUIT)
  197.   )
  198. #Y(#:TOP-LEVEL-FORM-40
  199.    #187Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 D9 8F
  200.          06 72 73 02 30 97 DB 84 63 09 D5 DC DB DB 69 51 2B 04 03 DB DD D9 8F
  201.          06 72 DE 8F 06 72 DF 8F 0C 72 E1 8F 0E 72 E3 8F 10 72 E5 8F 12 72 E7
  202.          8F 14 72 E9 8F 16 72 5D 17 8F 18 72 5D 19 8F 1A 72 5D 1B 8F 1C 72 5D
  203.          1D 8F 1E 72 5D 1F 8F 20 72 5D 21 8F 22 72 5D 23 8F 24 72 5D 25 8F 26
  204.          72 73 11 30 97 5D 27 84 63 0C D5 5D 28 5D 27 5D 27 69 51 2B 04 03 5D
  205.          27 5D 29 8F 2A 72 5D 2B 8F 2C 72 73 02 30 97 5D 2D 84 63 0C D5 5D 2E
  206.          5D 2D 5D 2D 69 51 2B 04 03 5D 2D 5D 2F 5D 30 8F 31 72 73 02 30 97 03
  207.          2D 19 01
  208.         )
  209.    COMMANDS0 "~S redefines the constant ~S. Its old value was ~S."
  210.    (DEFCONSTANT COMMANDS0
  211.     (LIST
  212.      #1="
  213. Help        = this key list
  214. Backspace     deletes one character to the left
  215. Delete        deletes one character to the right
  216. Insert        inserts a space
  217. ⇦             moves the cursor one character to the left
  218. ⇨             moves the cursor one character to the right
  219. Shift-⇦       moves the cursor to the beginning of the line
  220. Shift-⇨       moves the cursor to the end of the line
  221. Return, Enter finishes editing of this line"
  222.      (CONS #\HYPER-\ #'DEBUG-HELP)
  223.    ))
  224.    WARN #1# #\HYPER-\ DEBUG-HELP COMMANDS1
  225.    (DEFCONSTANT COMMANDS1
  226.     (LIST
  227.      #2="
  228. Help   = this command list
  229. Undo   = abort to the next recent input loop
  230. F1     = inspect all the stack elements
  231. F2     = inspect all the frames
  232. F3     = inspect only EVAL and APPLY frames (default)
  233. F4     = inspect only APPLY frames
  234. .      = inspect this frame
  235. ⇧      = go up one frame, inspect it
  236. Shift⇧ = go to top frame, inspect it
  237. ⇩      = go down one frame, inspect it
  238. Shift⇩ = go to bottom (most recent) frame, inspect it
  239. ShiftF1= list all stack elements
  240. ShiftF2= list all frames
  241. ShiftF3= list all EVAL and APPLY frames
  242. ShiftF4= list all APPLY frames
  243. F5     = redo: re-evaluate form in EVAL frame
  244. F6     = return: leave EVAL frame, prescribing the return values"
  245.      (CONS #\HYPER-\ #'DEBUG-HELP) (CONS #\? #'DEBUG-HELP)
  246.      (CONS #\HYPER-\ #'DEBUG-UNWIND) (CONS #\HYPER-A #'DEBUG-MODE-1)
  247.      (CONS #\HYPER-B #'DEBUG-MODE-2) (CONS #\HYPER-C #'DEBUG-MODE-4)
  248.      (CONS #\HYPER-D #'DEBUG-MODE-5) (CONS #\. #'DEBUG-WHERE)
  249.      (CONS #\HYPER-\⑧ #'DEBUG-UP) (CONS #\SUPER-HYPER-\⑧ #'DEBUG-TOP)
  250.      (CONS #\HYPER-\② #'DEBUG-DOWN) (CONS #\SUPER-HYPER-\② #'DEBUG-BOTTOM)
  251.      (CONS #\SUPER-HYPER-A #'DEBUG-BACKTRACE-1)
  252.      (CONS #\SUPER-HYPER-B #'DEBUG-BACKTRACE-2)
  253.      (CONS #\SUPER-HYPER-C #'DEBUG-BACKTRACE-4)
  254.      (CONS #\SUPER-HYPER-D #'DEBUG-BACKTRACE-5)
  255.    ))
  256.    #2# #\? #\HYPER-\ DEBUG-UNWIND #\HYPER-A DEBUG-MODE-1 #\HYPER-B
  257.    DEBUG-MODE-2 #\HYPER-C DEBUG-MODE-4 #\HYPER-D DEBUG-MODE-5 #\. DEBUG-WHERE
  258.    #\HYPER-\⑧ DEBUG-UP #\SUPER-HYPER-\⑧ DEBUG-TOP #\HYPER-\② DEBUG-DOWN
  259.    #\SUPER-HYPER-\② DEBUG-BOTTOM #\SUPER-HYPER-A DEBUG-BACKTRACE-1
  260.    #\SUPER-HYPER-B DEBUG-BACKTRACE-2 #\SUPER-HYPER-C DEBUG-BACKTRACE-4
  261.    #\SUPER-HYPER-D DEBUG-BACKTRACE-5 COMMANDS2
  262.    (DEFCONSTANT COMMANDS2
  263.     (LIST (CONS #\HYPER-E #'DEBUG-REDO) (CONS #\HYPER-F #'DEBUG-RETURN))
  264.    )
  265.    #\HYPER-E DEBUG-REDO #\HYPER-F DEBUG-RETURN COMMANDS3
  266.    (DEFCONSTANT COMMANDS3
  267.     (LIST
  268.      #3="
  269. F10    = continue: continue evaluation"
  270.      (CONS #\HYPER-J #'DEBUG-CONTINUE)
  271.    ))
  272.    #3# #\HYPER-J DEBUG-CONTINUE
  273.   )
  274. #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  275.    MAIN-LOOP REMOVE-OLD-DEFINITIONS
  276.    #Y(MAIN-LOOP #14Y(00 00 00 00 00 01 BE 0F 01 D6 2F 5A 19 01) 0.
  277.       *BREAK-COUNT*
  278.       #Y(MAIN-LOOP-1
  279.          #27Y(00 00 00 00 00 01 BE 4A 10 D5 63 02 69 C7 81 03 04 00 4B 19 01 2C
  280.               04 1A 79 19 01
  281.              )
  282.          DEBUG "> " COMMANDS0 READ-EVAL-PRINT EXIT
  283.   )  )  )
  284. #Y(#:TOP-LEVEL-FORM-42 #12Y(00 00 00 00 00 01 8F 00 0F 01 19 01) MAIN-LOOP
  285.    *DRIVER*
  286.   )
  287. #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  288.    BREAK-LOOP REMOVE-OLD-DEFINITIONS
  289.    #Y(BREAK-LOOP
  290.       #129Y(00 01 00 00 00 02 00 29 01 76 02 00 00 46 02 80 6D 80 69 97 29 01
  291.             63 00 30 AB 10 00 D5 6A 86 92 10 02 95 10 03 36 01 6A 8B 4D 18 63
  292.             00 36 0B B6 2F 85 D8 AB 36 02 2F 8E D9 AB 36 02 2F 8E AA 30 8C 3B
  293.             4E 5F 00 00 36 01 30 91 4F 16 01 0B 0A 00 DA 2D 07 10 08 2C 09 10
  294.             0A C9 10 0C 63 08 63 0C 68 0D 63 0C 2E 0E 10 0F 5E 16 5E 1A 65 10
  295.             02 2F 5A 12 06 16 01 11 16 01 2F 5B 1A 02 2F 5B 47 19 03
  296.            )
  297.       *BREAK-COUNT* *DEBUG-IO* *STANDARD-INPUT* *STANDARD-OUTPUT* ". Break"
  298.       "> " 12. FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2* 4.
  299.       *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME*
  300.       #Y(BREAK-LOOP-1
  301.          #38Y(00 00 00 00 00 01 C0 4A 0B 63 03 28 14 D5 65 04 02 2E 05 4B 14 A8
  302.               23 06 07 A8 23 07 06 00 19 02 49 01 01 49 01 00
  303.              )
  304.          NIL NIL DEBUG *DEBUG-FRAME*
  305.          #Y(BREAK-LOOP-1-1
  306.             #51Y(00 00 00 00 00 01 61 00 00 63 02 69 C7 63 03 7F 04 12 00 14 07
  307.                  01 00 1B 11 00 14 6B 03 21 81 07 0F 00 19 01 63 05 2F C7 1A 69
  308.                  63 06 2F C7 1A 6A 49 01 00
  309.                 )
  310.             NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS3
  311.             READ-EVAL-PRINT
  312.            )
  313.          SAME-ENV-AS UNWIND QUIT
  314.   )  )  )
  315. #Y(#:TOP-LEVEL-FORM-44 #12Y(00 00 00 00 00 01 8F 00 0F 01 19 01) BREAK-LOOP
  316.    *BREAK-DRIVER*
  317.   )
  318. #Y(#:TOP-LEVEL-FORM-45
  319.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01)
  320.    (SPECIAL *STEP-LEVEL*) *STEP-LEVEL* 0.
  321.   )
  322. #Y(#:TOP-LEVEL-FORM-46
  323.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 D6 2F 56 BF 19 01)
  324.    (SPECIAL *STEP-QUIT*) *STEP-QUIT* #.MOST-POSITIVE-FIXNUM
  325.   )
  326. #Y(#:TOP-LEVEL-FORM-47
  327.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  328.    (SPECIAL *STEP-WATCH*) *STEP-WATCH*
  329.   )
  330. #Y(#:TOP-LEVEL-FORM-48
  331.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) STEP
  332.    REMOVE-OLD-DEFINITIONS MACRO
  333.    #Y(STEP
  334.       #29Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 0A 94 54 70 D6 D7 AA 59 03 19
  335.            04 AA 2D 01 19 03
  336.           )
  337.       2. MACRO-CALL-ERROR LET*
  338.       ((*STEP-LEVEL* 0.) (*STEP-QUIT* MOST-POSITIVE-FIXNUM) (*STEP-WATCH* NIL)
  339.        (*EVALHOOK* #'STEP-HOOK-FN)
  340.   )  ))
  341. #Y(#:TOP-LEVEL-FORM-49
  342.    #52Y(00 00 00 00 00 01 D4 84 63 09 D5 D6 D4 D4 69 51 2B 04 03 D4 D8 D9 C4 72
  343.         DB C6 72 DD C8 72 DF CA 72 E1 CC 72 E3 CE 72 E5 D0 72 E7 D2 72 73 09 30
  344.         97 BE 19 01
  345.        )
  346.    COMMANDS4 "~S redefines the constant ~S. Its old value was ~S."
  347.    (DEFCONSTANT COMMANDS4
  348.     (LIST
  349.      #1="
  350. F7     = step into form: evaluate this form in single step mode
  351. F8     = step over form: evaluate this form at once
  352. F9     = step over this level: evaluate at once up to the next return
  353. F10    = continue: switch off single step mode, continue evaluation
  354. Shift F7-F10: same as above, specify a condition when to stop"
  355.      (CONS #\HYPER-G #'(LAMBDA NIL (THROW 'STEPPER 'INTO)))
  356.      (CONS #\HYPER-H #'(LAMBDA NIL (THROW 'STEPPER 'OVER)))
  357.      (CONS #\HYPER-I #'(LAMBDA NIL (THROW 'STEPPER 'OVER-THIS-LEVEL)))
  358.      (CONS #\HYPER-J #'(LAMBDA NIL (THROW 'STEPPER 'CONTINUE)))
  359.      (CONS #\SUPER-HYPER-G #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'INTO T))))
  360.      (CONS #\SUPER-HYPER-H #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'OVER T))))
  361.      (CONS #\SUPER-HYPER-I
  362.       #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'OVER-THIS-LEVEL T)))
  363.      )
  364.      (CONS #\SUPER-HYPER-J #'(LAMBDA NIL (THROW 'STEPPER (VALUES 'CONTINUE T)))
  365.    )))
  366.    WARN #1# #\HYPER-G
  367.    #Y(#:TOP-LEVEL-FORM-49-1 #9Y(00 00 00 00 00 01 D4 BF 4C) STEPPER INTO)
  368.    #\HYPER-H
  369.    #Y(#:TOP-LEVEL-FORM-49-2 #9Y(00 00 00 00 00 01 D4 BF 4C) STEPPER OVER)
  370.    #\HYPER-I
  371.    #Y(#:TOP-LEVEL-FORM-49-3 #9Y(00 00 00 00 00 01 D4 BF 4C) STEPPER
  372.       OVER-THIS-LEVEL
  373.      )
  374.    #\HYPER-J
  375.    #Y(#:TOP-LEVEL-FORM-49-4 #9Y(00 00 00 00 00 01 D4 BF 4C) STEPPER CONTINUE)
  376.    #\SUPER-HYPER-G
  377.    #Y(#:TOP-LEVEL-FORM-49-5 #12Y(00 00 00 00 00 01 D4 D5 5C 3C 02 4C) STEPPER
  378.       INTO
  379.      )
  380.    #\SUPER-HYPER-H
  381.    #Y(#:TOP-LEVEL-FORM-49-6 #12Y(00 00 00 00 00 01 D4 D5 5C 3C 02 4C) STEPPER
  382.       OVER
  383.      )
  384.    #\SUPER-HYPER-I
  385.    #Y(#:TOP-LEVEL-FORM-49-7 #12Y(00 00 00 00 00 01 D4 D5 5C 3C 02 4C) STEPPER
  386.       OVER-THIS-LEVEL
  387.      )
  388.    #\SUPER-HYPER-J
  389.    #Y(#:TOP-LEVEL-FORM-49-8 #12Y(00 00 00 00 00 01 D4 D5 5C 3C 02 4C) STEPPER
  390.       CONTINUE
  391.   )  )
  392. #Y(#:TOP-LEVEL-FORM-50 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  393.    STEP-VALUES REMOVE-OLD-DEFINITIONS
  394.    #Y(STEP-VALUES
  395.       #106Y(00 01 00 00 00 02 0E 00 10 01 36 01 2F 90 D6 36 03 2F 8E 63 03 36
  396.             0C 2F 85 D8 36 03 2F 8E AC 6A 63 A8 23 05 13 A8 23 07 16 AD 6A 63
  397.             36 0C 2F 85 DD 36 03 2F 8E AD 1A 25 DA 36 03 2F 8E 1A 24 DC 36 03
  398.             2F 8E 8B 05 36 0C 2F 85 1A 17 8B 00 7A 01 36 0C 2F 85 A8 83 B6 05
  399.             DE 36 03 2F 8E A8 84 B6 6B 16 01 16 01 11 93 40 19 02
  400.            )
  401.       *DEBUG-IO* *STANDARD-OUTPUT* "step " *STEP-LEVEL* " ==> " 0. "no values"
  402.       1. "value: " " values: " ", "
  403.   )  )
  404. #Y(#:TOP-LEVEL-FORM-51
  405.    #26Y(00 00 00 00 00 01 D4 2D 01 D4 00 29 01 A8 2A 02 01 0B 00 00 EA 30 96 BE
  406.         19 01
  407.        )
  408.    STEP-HOOK-FN REMOVE-OLD-DEFINITIONS
  409.    #Y(STEP-HOOK-FN
  410.       #276Y(00 01 00 01 00 08 37 01 03 0E 01 EB 63 02 30 AB 10 02 63 02 63 03
  411.             88 01 30 0E 0E 04 1C 80 AB 14 34 00 1C 80 A5 C3 0F 03 46 02 80 E2
  412.             80 B9 28 29 01 DA 6A 86 92 10 07 95 10 08 36 01 6A 8B 4D 18 DD AB
  413.             36 02 2F 8E 63 02 36 0B B6 2F 85 DE AB 36 02 2F 8E AA 30 8C 3B 4E
  414.             5F 00 00 36 01 30 91 4F 16 01 0B 07 00 DF 2D 0C 10 0D 2C 0E 10 0F
  415.             CE 10 11 63 0D 63 11 68 12 63 11 2E 13 10 14 36 01 2F 91 E9 36 03
  416.             2F 8E 63 02 36 0C 2F 85 5D 16 36 03 2F 8E 5E 1E 36 0C CE F3 03 17
  417.             F4 2F 85 03 18 4A 0A 5E 16 5E 1A 65 19 02 2F 5A 4B 3E 02 8A 00 16
  418.             5D 1A 67 1B 63 14 5D 1C 5D 1D 5B AC 73 03 73 02 2E 1E 0F 04 16 01
  419.             93 25 1F 18 AD 01 02 AF 2F 61 1A 33 16 02 12 06 16 02 1A 0F 16 02
  420.             12 06 16 02 1A 17 16 02 1A FF B6 2F 5B B2 07 00 00 1A 0C 16 02 12
  421.             06 16 02 0E 02 0F 03 B2 00 14 5B B4 2F 61 3F 14 2D 20 48 11 19 03
  422.             16 02 12 06 16 02 03 21 0F 03 1A 65
  423.            )
  424.       NIL *TOPLEVEL-ENVIRONMENT* *STEP-LEVEL* *STEP-QUIT* *STEP-WATCH*
  425.       #.MOST-POSITIVE-FIXNUM *DEBUG-IO* *STANDARD-INPUT* *STANDARD-OUTPUT*
  426.       "Step " "> " 11. FRAME-LIMIT1 *FRAME-LIMIT1* FRAME-LIMIT2 *FRAME-LIMIT2*
  427.       4. *DEBUG-MODE* FRAME-UP-1 FRAME-DOWN-1 *DEBUG-FRAME* "step " " --> " 3.
  428.       STEPPER
  429.       #Y(STEP-HOOK-FN-1
  430.          #31Y(00 00 00 00 00 01 C0 4A 0B 63 03 28 14 D5 65 04 02 2E 05 4B 14 A8
  431.               23 06 03 00 19 02 49 01 01
  432.              )
  433.          NIL NIL DEBUG *DEBUG-FRAME*
  434.          #Y(STEP-HOOK-FN-1-1
  435.             #42Y(00 00 00 00 00 01 61 00 00 63 02 69 C7 63 03 7F 04 0F 00 14 63
  436.                  06 69 C7 6B 03 21 81 07 09 00 19 01 63 05 2F C7 1A 6C 49 01 00
  437.                 )
  438.             NIL NIL COMMANDS1 *DEBUG-FRAME* EVAL-FRAME-P COMMANDS2 COMMANDS4
  439.             READ-EVAL-PRINT
  440.            )
  441.          SAME-ENV-AS UNWIND
  442.         )
  443.       "condition when to stop: " READ-FORM FUNCTION LAMBDA EVAL-AT
  444.       #S(HASH-TABLE EQ (CONTINUE . 63.) (OVER-THIS-LEVEL . 38.) (OVER . 17.)
  445.          (INTO . 9.)
  446.         )
  447.       STEP-VALUES 0.
  448.   )  )
  449. #Y(#:TOP-LEVEL-FORM-52
  450.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  451.    (SPECIAL *ERROR-HANDLER*) *ERROR-HANDLER*
  452.   )
  453. #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  454.    CERROR REMOVE-OLD-DEFINITIONS
  455.    #Y(CERROR
  456.       #85Y(00 02 00 00 01 18 0E 00 1B 2C 63 01 2F 90 D6 63 01 36 02 2F 8E 63 01
  457.            2F 90 90 03 63 01 AC 96 35 02 63 01 2F 90 63 04 7F 05 15 90 03 63 01
  458.            97 14 96 35 02 00 19 04 14 89 04 01 02 14 96 1A 70 DA 63 01 36 02 2F
  459.            8E 90 03 63 01 AD 96 35 02 63 07 5C 34 01 1A 5E
  460.           )
  461.       *ERROR-HANDLER* *ERROR-OUTPUT* "** - Continuable Error" FORMAT *DEBUG-IO*
  462.       INTERACTIVE-STREAM-P "If you continue (by pressing F10): " *BREAK-DRIVER*
  463.   )  )
  464. #Y(#:TOP-LEVEL-FORM-54
  465.    #20Y(00 00 00 00 00 01 D4 2F 5F D5 83 53 04 D5 5B 2F 56 BF 19 01)
  466.    (SPECIAL *BREAK-ON-WARNINGS*) *BREAK-ON-WARNINGS*
  467.   )
  468. #Y(#:TOP-LEVEL-FORM-55 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  469.    WARN REMOVE-OLD-DEFINITIONS
  470.    #Y(WARN
  471.       #41Y(00 01 00 00 01 17 63 00 2F 90 D5 63 00 36 02 2F 8E 63 00 2F 90 90 02
  472.            63 00 AC 96 35 02 0E 03 1C 05 63 04 5C 34 01 00 19 03
  473.           )
  474.       *ERROR-OUTPUT* "WARNING:" FORMAT *BREAK-ON-WARNINGS* *BREAK-DRIVER*
  475.   )  )
  476. #Y(#:TOP-LEVEL-FORM-56 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  477.    BREAK REMOVE-OLD-DEFINITIONS
  478.    #Y(BREAK
  479.       #31Y(00 00 00 01 01 00 37 02 02 BE EC 63 01 2F 90 90 02 63 01 AC 96 35 02
  480.            63 03 5C 34 01 00 19 03
  481.           )
  482.       "*** - Break" *ERROR-OUTPUT* FORMAT *BREAK-DRIVER*
  483.   )  )
  484. #Y(#:TOP-LEVEL-FORM-57 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  485.    Y-OR-N-P REMOVE-OLD-DEFINITIONS
  486.    #Y(Y-OR-N-P
  487.       #78Y(00 00 00 01 01 00 37 02 23 74 02 8A 02 21 63 00 2F 91 90 01 63 00 AC
  488.            96 35 02 C0 1A 28 A8 D9 69 34 2F 2C 25 06 18 00 19 04 02 19 04 89 02
  489.            5F D7 63 00 36 03 69 7C 68 04 A8 6A 63 85 A7 5F 16 01 63 00 2F 90 C5
  490.            14 63 00 36 02 2F 8E 1A 61
  491.           )
  492.       *QUERY-IO* FORMAT " (y/n) " " " STRING-LEFT-TRIM 0.
  493.       #S(HASH-TABLE EQ (#\Y . 4.) (#\J . 4.) (#\N . 1.))
  494.       "Please answer with y or n : "
  495.   )  )
  496. #Y(#:TOP-LEVEL-FORM-58 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  497.    YES-OR-NO-P REMOVE-OLD-DEFINITIONS
  498.    #Y(YES-OR-NO-P
  499.       #74Y(00 00 00 01 01 00 37 02 14 74 02 8A 02 12 63 00 2F 91 90 01 63 00 AC
  500.            96 35 02 C0 1A 21 89 02 6E 63 00 2F 82 D7 63 00 36 03 69 7C 68 04 A8
  501.            D9 DA 36 02 69 E3 89 00 10 16 02 63 00 2F 90 C5 14 63 00 36 02 2F 8E
  502.            1A 59 54 19 05
  503.           )
  504.       *QUERY-IO* FORMAT " (yes/no) " " " STRING-TRIM
  505.       (("ja" . T) ("nein") ("yes" . T) ("no")) #.#'STRING-EQUAL
  506.       "Please answer with yes or no : "
  507.   )  )
  508. #Y(#:TOP-LEVEL-FORM-59
  509.    #21Y(00 00 00 00 00 01 D4 2F 5F D5 2D 02 D5 D7 C2 72 30 96 BF 19 01)
  510.    (SPECIAL *KEYBOARD-INPUT*) WITH-KEYBOARD REMOVE-OLD-DEFINITIONS MACRO
  511.    #Y(WITH-KEYBOARD #13Y(00 01 00 01 00 08 8C 02 D4 93 55 19 04) PROGN)
  512.   )